home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / kewlpo1a / modkeyco.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-21  |  2.1 KB  |  87 lines
  1. Attribute VB_Name = "modKeyCode"
  2. Public Function KeyStr(KeyCode As Integer) As String
  3.     'Copyright Alexander Chia Yan Sheng
  4.     Select Case KeyCode
  5.         Case 65 To 90
  6.             KeyStr = Chr(KeyCode)
  7.         Case 48 To 57
  8.             KeyStr = Chr(KeyCode)
  9.         Case 13
  10.             KeyStr = "Enter"
  11.         Case 9
  12.             KeyStr = "Tab"
  13.         Case 112 To 123
  14.             KeyStr = "F" & LTrim(Str(KeyCode - 111))
  15.         Case 27
  16.             KeyStr = "Esc"
  17.         Case 192
  18.             KeyStr = "~"
  19.         Case 187
  20.             KeyStr = "="
  21.         Case 189
  22.             KeyStr = "-"
  23.         Case 219
  24.             KeyStr = "["
  25.         Case 220
  26.             KeyStr = "\"
  27.         Case 221
  28.             KeyStr = "]"
  29.         Case 186
  30.             KeyStr = ";"
  31.         Case 222
  32.             KeyStr = "'"
  33.         Case 188
  34.             KeyStr = "<"
  35.         Case 190
  36.             KeyStr = ">"
  37.         Case 191
  38.             KeyStr = "/"
  39.         Case 16
  40.             KeyStr = "Shift"
  41.         Case 20
  42.             KeyStr = "Caps Lock"
  43.         Case 144
  44.             KeyStr = "Num Lock"
  45.         Case 145
  46.             KeyStr = "Scr Lock"
  47.         Case 17
  48.             KeyStr = "Ctrl"
  49.         Case 18
  50.             KeyStr = "Alt"
  51.         Case 32
  52.             KeyStr = "Space"
  53.         Case 45
  54.             KeyStr = "Ins"
  55.         Case 46
  56.             KeyStr = "Del"
  57.         Case 33
  58.             KeyStr = "Pg Up"
  59.         Case 34
  60.             KeyStr = "Pg Dn"
  61.         Case 8
  62.             KeyStr = "Back"
  63.         Case 36
  64.             KeyStr = "Home"
  65.         Case 35
  66.             KeyStr = "End"
  67.         Case 37
  68.             KeyStr = "Left Arrow"
  69.         Case 38
  70.             KeyStr = "Up Arrow"
  71.         Case 39
  72.             KeyStr = "Right Arrow"
  73.         Case 40
  74.             KeyStr = "Down Arrow"
  75.         Case 106
  76.             KeyStr = "* [Num Pad]"
  77.         Case 107
  78.             KeyStr = "+ [Num Pad]"
  79.         Case 111
  80.             KeyStr = "/ [Num Pad]"
  81.         Case 109
  82.             KeyStr = "- [Num Pad]"
  83.         Case Else
  84.             KeyStr = "!"
  85.     End Select
  86. End Function
  87.